home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Multimedia, Playing a WAV file < prev    next >
Encoding:
Text File  |  1997-07-15  |  519 b   |  18 lines
  1. Description: Plays a .WAV file
  2.  
  3. 'Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
  4. (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  5.  
  6. Const SND_SYNC      = &H0000
  7. Const SND_ASYNC     = &H0001
  8. Const SND_NODEFAULT = &H0002
  9. Const SND_LOOP      = &H0008
  10. Const SND_NOSTOP    = &H0010
  11.  
  12. 'Insert the following code under a command button, in a menu, etc..
  13.  
  14. SoundFile$ = "c:\windows\chimes.wav"
  15. wFlags% = SND_ASYNC Or SND_NODEFAULT
  16. x% = sndPlaySound(SoundFile$,wFlags%)
  17.  
  18.